home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1991 September & October
/
rerun-1991-09-10.d64
/
menu 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
77 lines
10 rem new rerun c64 automenu
20 rem lou wallace
40 poke53280,0:poke53281,0:printchr$(142)
50 dr=peek(186):v=54273
60 ch$="abcdefghijklmnopqrstuvwxyz"
70 dr$=right$(str$(dr),len(str$(dr))-1)
80 dim n$(255),d$(255):cx=54272:print "[147]"
90 read f
100 for i=1 to f:read n$(i),d$(i)
110 if len(n$(i))>16 then n$(i)=left$(n$(i),15)+"*"
120 next
130 gosub 400
140 rem - print first column of names -
150 d$=""
160 for i=1 to f/2
170 print d$;
180 print""mid$(ch$,i,1)" "n$(i)
190 gosub 590:d$=d$+""
200 next
210 rem -- then 2nd column of names ---
220 d$=""
230 for i=(f/2+1) to f
240 print d$;
250 printspc(19)""mid$(ch$,i,1)" "n$(i)
260 gosub 590:d$=d$+""
270 next
280 getm$:ifm$=""then 280
290 ifm$<"a"orm$>chr$(64+f)then280
300 p=asc(m$)-64:print"[147]"
310 if d$(p)<>"run" then 340
320 iflen(n$(p))>12thenn$(p)=left$(n$(p),12)+"*"
330 print"load"chr$(34)n$(p)chr$(34)","dr$"[145][145][145]":goto360
340 iflen(n$(p))>15thenn$(p)=left$(n$(p),16)+"*"
350 print"load"chr$(34)n$(p)chr$(34)","dr$",1[145][145][145]"
360 a$=d$(p)
370 a$=a$+chr$(13)
380 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
390 new
400 poke 53280,0:poke 53281,0
410 ov=peek(53265)
420 poke 53265,peek(53265)and 247
430 poke 53265,(peek(53265)and248)+7
440 pr$="[209][165] [167][209]"
450 tp$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
460 md$="[209][165][194] [194][167][209]"
470 bt$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
480 hd$=" september/october 1991 rerun
490 [153]"load";
500 [153] tp$;:[141] 590
510 [129] i[178]1 [164] 2:[153] md$;:[141] 590:[130]
520 [153]"on";hd$;:[141] 590
530 [153]:[153]"on";
540 [129] i[178]1 [164] 1:[153] md$;:[141] 590:[130]
550 [153] bt$;:[141] 590
560 [129] i[178]1 [164] 19:[153] pr$;:[141] 590:[130]
570 [151] 53265,27
580 [142]
590 [143] sound routine here
600 [151] v[170]23,15:[151] v[170]4,9:[151] v[170]5,0:[151] v,1:[151] v[170]3,32:[151] v[170]3,33
610 [142]
1000 [143] file list
1010 [143] first entry is the number of programs on this disk
1020 [143] followed by each filename
1030 [143] second data item is run or sysxxxxx
1040 [143] run if file is basic and sys xxxxx if ml
1050 [131] 8
1055 [131] multi-copy,run
1060 [131] rollerdash,run
1070 [131] fraction action,run
1080 [131] keypad in 64,run
1090 [131] scramble,run
1100 [131] menu runner,run
1110 [131] sourcemaster,run
1120 [131] "cmdcmdcmdcmd "
1130 [131] "cmdcmdcmdcmd "
1140 [131] "cmdcmdcmdcmd "